integer, parameter:: N=204, K=68, M=N-K
character*17 g(136)
integer colorder(N)
data g/                   &  !parity generator matrix for (204,68) code
       "2de7435fd27c0031d", &
       "f331b40671e20ea80", &
       "48bd3f8cb9a24392f", &
       "d4ed71c935162aa2a", &
       "c437a3284ec58bce7", &
       "35a806dd5be35627c", &
       "396e797c33a4739a6", &
       "768f331a59c15487b", &
       "c214eac24ae5e1732", &
       "0b5c53ff3a6da1192", &
       "99624981d2703fb97", &
       "e9f5447ef7f1ff6af", &
       "bd8c730f0cfdf0727", &
       "26f61e63e1e098f7f", &
       "ef826566137b6526f", &
       "af0e4fa251e9b4926", &
       "75974a8b2a24292c5", &
       "71caf0f2cd10f6d4f", &
       "b1103f1f26e6898b7", &
       "67ceb7d6f490da64f", &
       "ee0e8fbefec23008a", &
       "11cc2227e8bd676ca", &
       "6e71626ba1e278046", &
       "005d28da267e50e13", &
       "a9ae4a130aaba8219", &
       "d8ab72e0158d0da70", &
       "56009d42b37bd66ff", &
       "c39a75eca99b0e996", &
       "6886de0bf7c0bf4bb", &
       "1046cd8f64162f7b5", &
       "da0f15843ac21e3a5", &
       "e9bf9cd19f3db3913", &
       "2fb9cb42d650f47a7", &
       "a2b6c5a378fa75a65", &
       "41a88f3cd60b79d6c", &
       "fcf175794cc3ac96a", &
       "8677a3447d40a9f71", &
       "97a1f08c250b4bf12", &
       "0168f090a1df6e8ea", &
       "418a06bf372cc67d9", &
       "0f17b880c1ff51239", &
       "b2afd6d585deb961b", &
       "60298ac5b58dbeee0", &
       "8350c03c40119feff", &
       "b29c964a8accf6af4", &
       "9b46f036a5c178b5d", &
       "917398bff051c300a", &
       "5e52c03b2f8c5128c", &
       "beae6c33c87ba38ab", &
       "20843f7b056a02ebf", &
       "66690d65acd9de598", &
       "8f025841af5b54331", &
       "b43cd869d3be2c3db", &
       "c9c342fe63c18df50", &
       "d331b40671e28ea80", &
       "62406a0f4947e6ce9", &
       "d67b1495883b22e1b", &
       "734534c372408895b", &
       "d88750e33d9677dcd", &
       "6f96964da55138687", &
       "80bee98bb75d50ef2", &
       "c428ef3e3f06f4c56", &
       "b1a1499b125883a35", &
       "ac892d4b37fa9e395", &
       "458dbda0f95ab11a5", &
       "6f93c9e95b1094eed", &
       "2e370d713914f848e", &
       "758806dd5be35627c", &
       "8c52e01caec798b49", &
       "c286cc25bae3669cf", &
       "87c56fb895c100884", &
       "e89cb1376a18fd911", &
       "156ffe5f30dc354e0", &
       "f20d0b121d6a6b3ee", &
       "7db08891b491a95d2", &
       "191fac548d5077bdf", &
       "023a37d7ea5660bbc", &
       "6781668b363fee682", &
       "bbfaf262cab7370da", &
       "feea557965b7e474f", &
       "c094eb223e1d305b8", &
       "2be051abdd5beea35", &
       "0790449880fda9d00", &
       "f9029a39ec869e7b4", &
       "5a29f48926ec9a552", &
       "e0463306dc1470f87", &
       "9251058334d790f86", &
       "3019e1d4578e8a4dc", &
       "887e46631502fa111", &
       "c25fcd7a42465d326", &
       "cf64bcc1056b555c4", &
       "3e71c0fe5f0ad733b", &
       "11055ec43b076e5b2", &
       "3440f64dfa3c30a96", &
       "2b73885b4d3299f60", &
       "2e71627ba1e268046", &
       "ad23743d5e6e5b80c", &
       "c9757b05f29bfdc10", &
       "f7112bea739247b51", &
       "3664062387998b2b1", &
       "90897a3b8785aefba", &
       "29e126e3201fc1d46", &
       "96c9001c84d5257fc", &
       "067723447d40a9f71", &
       "1a019cc68f7511402", &
       "4bd48eb2330032763", &
       "d139a5da936b37647", &
       "765ab46a4dec5f04f", &
       "706f475ad19b91955", &
       "1755c988fa8a55e5c", &
       "2fd9ed5777eb01d6a", &
       "bec27d85b954d3fe8", &
       "7135a3b92c45b3f8d", &
       "353237872f002163a", &
       "e31e4a97aef10c729", &
       "da527d5e1cbc4edb6", &
       "6e33cdede17c3207e", &
       "ef2d2062e84dc401f", &
       "8217c84c50c1bf833", &
       "12ffbac7b2219c9e0", &
       "3729178706f66881f", &
       "2fdd748c382a608a1", &
       "dd0a00076f9dcec73", &
       "46b1d37bced447035", &
       "7316f33a9c05ef178", &
       "152c39a6de8954cc3", &
       "16efffb7b62e12ba3", &
       "9d9ec2bb467affd83", &
       "467723445d40a9f61", &
       "87994762b3bf50697", &
       "b1bfa5b51526dde9b", &
       "b0a6a19d709a96148", &
       "990d567c0aba31a14", &
       "171f190792461b1e0", &
       "166011c27d2b6b8a4", &
       "170c15831244ae73e"/

data colorder/                                                              &
         0,  1,  2,  3,  4,  5, 47,  6,  7,  8,  9, 10, 11, 12, 58, 55, 13, &
        14, 15, 46, 17, 18, 60, 19, 20, 21, 22, 23, 24, 25, 57, 26, 27, 49, &
        28, 52, 65, 16, 50, 73, 59, 68, 63, 29, 30, 31, 32, 51, 62, 56, 66, &
        45, 33, 34, 53, 67, 35, 36, 37, 61, 69, 54, 38, 71, 82, 39, 77, 80, &
        83, 78, 84, 48, 41, 85, 40, 64, 75, 96, 74, 72, 76, 86, 87, 89, 90, &
        79, 70, 92, 99, 93,101, 95,100, 97, 94, 42, 98,103,105,102, 43,104, &
        88, 44,106, 81,107,110,108,111,112,109,113,114,117,118,116,121,115, &
       119,122,120,125,129,124,127,126,128, 91,123,133,131,130,134,135,137, &
       136,132,138,139,140,141,142,143,144,145,146,147,148,149,150,151,152, &
       153,154,155,156,157,158,159,160,161,162,163,164,165,166,167,168,169, &
       170,171,172,173,174,175,176,177,178,179,180,181,182,183,184,185,186, &
       187,188,189,190,191,192,193,194,195,196,197,198,199,200,201,202,203/
